(message "\n\nIf PageStream3, BME2 or PageLiner are running now, quit them before continuing.")
(run "avail flush" (safe))
;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
(run "CD PageStream3:" (safe))
(run "CD SoftLogik:" (safe))
(run "assign fonts: softlogik:fonts add" (safe))
;TEST TO SEE IF THEY HAVE PGS3HI.LHA
(if (<> (exists "PGSpatch.LHA") 1)
(abort "You did not download the PGS3HI.LHA archive. Download it and decompress it to the same directory as you decompressed this archive before continuing.")
)
;GET DESTINATION
(set PGSdest (getassign "PageStream3" "a"))
(set SLdest (getassign "SoftLogik" "a"))
(if (OR (= PGSdest "") (= SLdest ""))
(abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3.0h before applying this update patch.")
)
(set @default-dest PGSdest)
;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST
(if (<> (exists "PageStream3:PageStream3") 1)
(abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.0h before applying this update patch.")
(message ("\n\nThis patch will update your PageStream3.0h hard drive installation to version 3.0i.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.0h (not 3.0h2) installed to use this patch."))
(message ("\n\nYou do not need to download 3.0i TuneUps 1 and 2; PGS3ITU1.LHA and PGS3ITU2.LHA. This update contains those files."))
(prompt "\n\nDo you want to install the new default color palette file?")
(help "The new default color palette file has more colors than the previous file. If you have already added colors to your default color palette file, you should skip this step.")
(choices "Yes" "No")
(default 0)
)
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Colors.LHA")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StandardFonts x FM.lha")
;UPDATE FONT PATHS
(if
(askbool
(prompt "The PageStream3:Fonts/StandardFonts path must be updated with the Font Preferences requester. If you know how to do this, click on \"No, I'll do it\"; otherwise, click on \"Do it for me.\"")
(help "It's faster to do it yourself if you know how. Doing it automatically will cause all of your font paths to be updated the next time you run PageStream3, which can take a few minutes. You must do it yourself if you don't let PageStream do it automatically.")
(choices "Do it for me" "No, I'll do it")
(default 0)
)
(
(textfile
(dest "t:PageStream3.prefs")
(include "PageStream3:PageStream3.prefs")
(append "UPDATEFONTPATHS TRUE\n")
(safe)
)
(delete "PageStream3:PageStream3.prefs" (safe))
(copyfiles
(source "t:PageStream3.prefs")
(dest "PageStream3:")
(nogauge)
)
(delete "t:PageStream3.prefs" (safe))
)
)
)
)
(delete "FM.LHA" (safe))
;UPDATE LIBS
(working "Installing Updated Libraries...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
(delete "Libs.LHA" (safe))
;UPDATE HELP
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Tips.LHA")
(delete "Tips.LHA" (safe))
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.LHA")
(delete "Help.LHA" (safe))
;UPDATE PRINTER DRIVERS
(working "Installing Updated Printer Drivers...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.LHA")
